#!/usr/bin/perl
print << "EOT";
Content-Type: text/html

Hello World!
print "Hello world !\n";
print "Hello world !\n";

$myvar = "outside";
sub a {
	$myvar = "change by a";
}

a();
print $myvar;

$myvar = "outside";
sub b {
	my $myvar = "change by b";
	print "in b: $myvar";
}
b();
print $myvar;

EOT
exit(0);